home *** CD-ROM | disk | FTP | other *** search
Text File | 1989-06-26 | 1.7 KB | 51 lines | [TEXT/GEOL] |
- Item 9060273 23-June-89 07:09
-
- From: AU0008 Kopfwerk EDV SW Entwicklung
-
- To: ITA0102 ITALSOFT DEV 1 Rov TYBVENRO
-
- cc: MACAPP.TECH$ MACAPP Tech
-
- Sub: RE-TEView in Dialog
-
- To: Stefano Rampazzo
-
- Dear Stefano,
-
- You don“t bore me with your question but it is good to see that I am not alone
- with my problems (what seems to me til now).
- I rewrote the workaround that fixes also the problem with the last TEditText
- activated. But be carefull - I am currently using MacApp-b8.2 (near b9) and I
- have not tested it with b5 (but I think it should work).
-
- FUNCTION TTEinDialView.DoMouseCommand(VAR theMouse: Point; VAR Info: EventInfo;
- VAR Hysteresis: Point): TCommand; OVERRIDE;
- VAR aDialogView : TDialogView;
-
- BEGIN
- if gTarget <> SELF then
- BEGIN
- aDialogView:= TDialogView(GetDialogView);
-
- { Attempt to deselect current edit text }
- aDialogView.DoSelectEditText(NIL, False);
- if (aDialogView.fCurrentEditText = NIL) then
- { Successful only if it was deselected }
- BEGIN
- GetWindow.SetTarget(SELF);
- DoMouseCommand:= INHERITED DoMouseCommand(theMouse, Info, hysteresi
- END ELSE
- DoMouseCommand:= gNoChanges;
- END ELSE
- DoMouseCommand:= INHERITED DoMouseCommand(theMouse, Info, hysteresis);
- END;
-
- The only one anomaly I have seen is if you do modifications in the TEView and
- activate a TEditView, you can still undo the modifications.
-
- I hope this helps, and please let me now how things proceed.
- Kind Regards, and have a nice weekend,
-
- Tommi GESSL, KOPFWERK SW Dev.
-
-